(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     34025,        764]
NotebookOptionsPosition[     30714,        670]
NotebookOutlinePosition[     31047,        685]
CellTagsIndexPosition[     31004,        682]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"ListPointPlot3D", "[", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{"\"\<psipl_on_g_end.txt\>\"", ",", "\"\<Table\>\"", ",", " ", 
      RowBox[{
      "Path", "\[Rule]", 
       "\"\</home/mori/Projects/CppProjects/gss_v4/res\>\""}]}], "]"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.08", ",", " ", "0.22"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.21"}], ",", "0.21"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.0001", ",", " ", "0.0008"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<r, m\>\"", " ", ",", "20"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<z, m\>\"", ",", "20"}], "]"}], ",", "\"\<\>\""}], 
      "}"}]}], ",", " ", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{"\[Psi]", ",", "20"}], "]"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "15"}], "]"}]}], ",", 
    RowBox[{"BoxStyle", "->", 
     RowBox[{"Dashing", "[", 
      RowBox[{"{", 
       RowBox[{"0.009", ",", "0.009"}], "}"}], "]"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{
       RowBox[{"Opacity", "[", "0.6", "]"}], ",", "Blue", ",", " ", 
       RowBox[{"Specularity", "[", 
        RowBox[{"White", ",", "1"}], "]"}]}], "]"}]}], ",", " ", 
    RowBox[{"FillingStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Red", ",", "Dashed"}], "]"}]}]}], "]"}], "\[IndentingNewLine]",
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.453972574*^9, 3.4539725758125*^9}, {3.453972692625*^9, 
   3.453972693765625*^9}, {3.4539727540625*^9, 3.45397275628125*^9}, {
   3.453972799515625*^9, 3.453972823203125*^9}, {3.454279818026351*^9, 
   3.454279840385726*^9}, {3.513352076248626*^9, 3.513352084049992*^9}, {
   3.513355019325534*^9, 3.513355021082783*^9}, {3.513355065631107*^9, 
   3.513355066562951*^9}, {3.513357330794116*^9, 3.513357352778145*^9}, {
   3.513357386122369*^9, 3.513357387661666*^9}, {3.513357418339425*^9, 
   3.513357422892568*^9}, {3.513358294621471*^9, 3.51335829494787*^9}, {
   3.513359059821358*^9, 3.51335906648092*^9}, {3.513359171241153*^9, 
   3.513359199187029*^9}, {3.513359408673392*^9, 3.513359431236364*^9}, {
   3.513359575238322*^9, 3.513359578262662*^9}, {3.513359637414853*^9, 
   3.513359637836175*^9}, {3.513360941906169*^9, 3.513360950355825*^9}, {
   3.51336104180693*^9, 3.513361046484911*^9}, {3.513361658480257*^9, 
   3.51336166254557*^9}, {3.513361944175825*^9, 3.513361944571284*^9}, {
   3.513362121191458*^9, 3.513362123370914*^9}, {3.513362388239856*^9, 
   3.513362390090556*^9}, {3.513362944737719*^9, 3.513362945337807*^9}, {
   3.513364181487384*^9, 3.513364203714285*^9}, {3.513364251825845*^9, 
   3.513364256391937*^9}, {3.513367511348348*^9, 3.51336751523507*^9}, {
   3.513367682591201*^9, 3.513367683134893*^9}, {3.513368905727954*^9, 
   3.513368951618205*^9}, {3.513369108251849*^9, 3.513369109921732*^9}, {
   3.513528632835676*^9, 3.513528648803675*^9}, {3.513529537229937*^9, 
   3.513529546497242*^9}, {3.513529595495494*^9, 3.513529618954606*^9}, {
   3.513529981673086*^9, 3.513529990201907*^9}, {3.513530218958546*^9, 
   3.513530351691325*^9}, {3.513843137570617*^9, 3.513843157456582*^9}, {
   3.513845874567785*^9, 3.51384588193521*^9}, {3.513847850892903*^9, 
   3.513847850974107*^9}, {3.513847913514385*^9, 3.513847915930149*^9}, {
   3.513848325188936*^9, 3.513848371179456*^9}, {3.513848408852327*^9, 
   3.513848408979228*^9}, {3.513848571093321*^9, 3.513848587928288*^9}, {
   3.513848674994273*^9, 3.513848675689594*^9}, {3.513848709557943*^9, 
   3.513848758960805*^9}, {3.513848823092344*^9, 3.513848840623261*^9}, {
   3.513848919545635*^9, 3.513848949256404*^9}, {3.513849027501629*^9, 
   3.513849034492916*^9}, {3.513849079306855*^9, 3.513849142459243*^9}, {
   3.513849204816765*^9, 3.513849208972468*^9}, {3.513851277992146*^9, 
   3.513851325384504*^9}, {3.513851604592952*^9, 3.513851605763996*^9}, {
   3.513851903472769*^9, 3.513851933535801*^9}, {3.513860815409519*^9, 
   3.513860844680757*^9}, {3.513885932314593*^9, 3.513885932605076*^9}, {
   3.513887856676581*^9, 3.513887882201798*^9}, {3.513887961232929*^9, 
   3.513887963419731*^9}, {3.513888586104991*^9, 3.513888617708994*^9}, {
   3.513890423313736*^9, 3.513890431226817*^9}, {3.513891494145911*^9, 
   3.51389149867847*^9}, {3.513923902197887*^9, 3.513923928139824*^9}, {
   3.515317595987346*^9, 3.515317696321635*^9}, {3.515317851407401*^9, 
   3.515317927400278*^9}, {3.515317974636874*^9, 3.515318003435105*^9}, {
   3.515318059421087*^9, 3.515318155657951*^9}, 3.515318202695272*^9, {
   3.515318242402825*^9, 3.515318243674436*^9}, {3.515318274570179*^9, 
   3.515318274980677*^9}}],

Cell[BoxData[
 Graphics3DBox[
  {RGBColor[0, 0, 1], Opacity[0.6], Specularity[
    GrayLevel[1], 1], Point3DBox[CompressedData["
1:eJxl3XvQFfV9x3G8ZmiDISCxlgS5KBe5PjgGpcQFJDQkBrCNSdBoQoQxFgSM
WJVqMFqCCgKpY0w0GNBaNWAjghcERSCSB6hyknipAlXDdFAsVAvWaIC0nbPv
tfv+7D/MvGfH2fmNr3nOnLO/76/bt6f/1eQj27RpM/zYNm2O+t9/7/zJ/10P
Fs1/N69rU14ndBj05Nozl0e/7ZZNr772yj9HP6v7P43q8NTD0a+76N0XerR7
JPqaO4dNPv3CldE/eGnue6MfWhX9jI6/nfP1Q49G7/dOp52zvvx49Cn9Jl42
f/ET0R/8zvJDi/eujv7mP75/6y8+tyZ6zzdGdll/69ronZ+ec+WunU9Fn/Bh
45j3+q+Lfk7n4750VPFMPufq0zp+fHf2W742YfvxC9dHP3rTh8f2HLIh+smT
um4b8Fr2s48cfceQuRujf3vJlG8OH/jL6DuOazfv3Jez/2H54L8+f/azuQ5f
+nrni3ttij70ret2TdmWfcLce5fNvOpX0X/73qiX55zUGn3/bX/zswW/yt5h
8KJL7pi+OXpL49GBS07YEn38tO3vP7Au+5Yd1/Z48pKt0ffMuuftDZ/4l+ht
T2xdufXx7L0f3/t3L3zzueh/eV7HUTs/9nz0DRtXTd/3i+xvTHx1yPtf2xa9
eTWi4/eCC8e2vWlMa/h1x687ft3x645fd/y649cdv+74dcevO37d8euOX3f8
uuM3nrP0645fd/y649cdv+74dcevO35jHUq/7viN9Sn9uuPXHb/u+HXHrzt+
3fHrjl93/Lrj1x2/7vh1x69782pEx++G8XM7TftgU/h1x687ft3x645fd/y6
49cdv+74dcevO37d8euOX3f8uuM3nrP0645fd/y649cdv+74dcevO35jHUq/
7viN9Sn9uuPXHb/u+HXHrzt+3fHrjl93/Lrj1x2/7vh1x69782pEx++Nxw+b
840Hnw2/7vh1x687ft3x645fd/y649cdv+74dcevO37d8euOX3f8xnOWft3x
645fd/y649cdv+74dcdvrEPp1x2/sT6lX3f8uuPXHb/u+HXHrzt+3fHrjl93
/Lrj1x2/7vh1b16N6Pjd87Erfzhywi/Drzt+3fHrjl93/Lrj1x2/7vh1x687
ft3x645fd/y649cdv/GcpV93/Lrj1x2/7vh1x687ft3xG+tQ+nXHb6xP6dcd
v+74dcevO37d8euOX3f8uuPXHb/u+HXHrzt+3ZtXIzp+l23tc0RL243h1x2/
7vh1x687ft3x645fd/y649cdv+74dcevO37d8euO33jO0q87ft3x645fd/y6
49cdv+74jXUo/brjN9an9OuOX3f8uuPXHb/u+HXHrzt+3fHrjl93/Lrj1x2/
7s2rER2/ly38txknrV4fft3x645fd/y649cdv+74dcevO37d8euOX3f8uuPX
Hb/u+I3nLP2649cdv+74dcevO37d8euO31iH0q87fmN9Sr/u+HXHrzt+3fHr
jl93/Lrj1x2/7vh1x687ft3x6968GtHx+8INJ1x3zKXPhF93/Lrj1x2/7vh1
x687ft3x645fd/y649cdv+74dcevO37jOUu/7vh1x687ft3x645fd/y64zfW
ofTrjt9Yn9KvO37d8euOX3f8uuPXHb/u+HXHrzt+3fHrjl93/Lo3r0Z0/J56
649f2d3ydPh1x687ft3x645fd/y649cdv+74dcevO37d8euOX3f8uuM3nrP0
645fd/y649cdv+74dcevO35jHUq/7viN9Sn9uuPXHb/u+HXHrzt+3fHrjl93
/Lrj1x2/7vh1x69782pEx+/7V/zJf6384Zrw645fd/y649cdv+74dcevO37d
8Us/dMWN00cu+7MCv/QDy8+5Ye0RnQv80r9/betnpn/rMwV+q//+wn1tRm08
qcAv/ZjJK18+1KFbgV/6lPt37ug0snuBX/rsrl85uHJqjwK/9OG7bh29dNHJ
BX7pM97cvmL1slMK/NJ/fuT0FQfW9CzwS3+r9fZlM9f1KvBL3zZv+6oFq3oX
+KW/M+rnP3rpJ30K/NJX3zxkZO9ppxb4pU+d9/eN+wf1LfBL//ATrQ9uer1v
gV/6pJlLnhvxvX4Ffuk3rrjq4i5t+xf4pe+/5LoeS7/fv8Av/czdwwaOebN/
gV/6rqEP373pcwMK/Pr/B/y649cdv+74dcevO37d8euOX3f8uuN31h+u+PWi
d58Iv+74dcevO37d8euOX3f8uuPXHb/0toePHn3TrM6VX9+PX3f8uuPXHb/u
+I3nLP2649cdv+74dcevO37d8euO31iH0q87fmN9Sr/u+HXHrzt+6U/86bjO
5y0YVPn1/fh1x687ft3x645fd/y649cdv+7NqxEdv1/43b+/9Y1zHwu/7vh1
x687ft3x645fd/y649cdv/RHDj+//5q7u1R+fT9+3fHrjl93/LrjN56z9OuO
X3f8uuPXHb/u+HXHrzt+Yx1Kv+74jfUp/brj1x2/7vilr//dbWfN6zm48uv7
8euOX3f8uuPXHb/u+HXHrzt+3ZtXIzp+t146bvOZK1aGX3f8uuPXHb/u+HXH
rzt+3fHrjl/6OXfc9cjz7bpVfn0/ft3x645fd/y64zees/Trjl93/Lrj1x2/
7vh1x687fmMdSr/u+I31Kf2649cdv+74rfrxS67/wdunVX59P37d8euOX3f8
uuPXHb/u+HXHr3vzakTH79h3n3jgU59cEX7d8euOX3f8uuPXHb/u+HXHrzt+
6WPmrJvX+4PulV/fj193/Lrj1x2/7viN5yz9uuPXHb/u+HXHrzt+3fHrjt9Y
h9KvO35jfUq/7vh1x687fulXdzi2y4LXT6/8+n78uuPXHb/u+HXHrzt+3fHr
jl/35tWIjt/PPnzeDc++sTz8uuPXHb/u+HXHrzt+3fHrjl93/NKvvrrt3y5o
d0rl1/fj1x2/7vh1x687fuM5S7/u+HXHrzt+3fHrjl93/LrjN9ah9OuO31if
0q87ft3x645f+rzee7+689gzKr++H7/u+HXHrzt+3fHrjl93/Lrj1715NaLj
d9i63iNmL70//Lrj1x2/7vh1x687ft3x645fd/zSh+x/8qH5w3tVfn0/ft3x
645fd/y64zees/Trjl93/Lrj1x2/7vh1x687fmMdSr/u+I31Kf2649cdv+74
pTeW7nrxj+cPrfz6fvy649cdv+74dcevO37d8euOX/fm1YiO35fmf/y7J0y8
J/y649cdv+74dcevO37d8euOX3f80k+9dGrr29f2qfz6fvy649cdv+74dcdv
PGfp1x2/7vh1x687ft3x645fd/zGOpR+3fEb61P6dcevO37d8Uv//drr9za2
Dav8+n78uuPXHb/u+HXHrzt+3fHrjl/35tWIjt/VQ9ZNvGfEneHXHb/u+HXH
rzt+3fHrjl93/Lrjl755buM/+tzdt/Lr+/Hrjl93/Lrj1x2/8ZylX3f8uuPX
Hb/u+HXHrzt+3fEb61D6dcdvrE/p1x2/7vh1xy99/11rDr/x+aLy6/vx645f
d/y649cdv+74dcevO37dm1cjOn5vWbbl6b43LAy/7vh1x687ft3x645fd/y6
49cdv/T2f/HHlrHT+ld+fT9+3fHrjl93/LrjN56z9OuOX3f8uuPXHb/u+HXH
rzt+Yx1Kv+74jfUp/brj1x2/7vil3/2jMR2PfGZ45df349cdv+74dcevO37d
8euOX3f8ujevRnT87t648ugTj7gy/Lrj1x2/7vh1x687ft3x645fd/zSh3bt
tvaTywdUfn0/ft3x645fd/y64zees/Trjl93/Lrj1x2/7vh1x687fmMdSr/u
+I31Kf2649cdv+74pf+g9fipX104ovLr+/Hrjl93/Lrj1x2/7vh1x687ft2b
VyO6/BZ0+a26/FZdfqsuv1WX36rLb9Xlt+ryW3X5LWb8wxdfG9NloP1W98tv
1eW36vJbdfmtuvx+9Jx1v1WX36rLb9Xlt+ryW3X5rbr8Vl1+P1qHut+qy+9H
61P3W3X5rbr8Vl1+i1fXdbntuR3ht7pffqsuv1WX36rLb9Xlt+ryW3X5rbr8
Vr15NaLr83P4ddfn5/Drrs/P4dddn5/Dr7s+P4df+omHJ/W666EB/vwcft31
+Tn8uuvzc/iN56x/fg6/7vr8HH7d9fk5/Lrr83P4jXWof34Ov7E+9c/P4ddd
n5/DL33rxAH3Hvx/f399vz4/h193fX4Ov+76/Bx+3fX5Ofy6N69GdH1/FX7d
9f1V+HXX91fh113fX4Vfd31/FX7p78zeUBye0d/fX4Vfd31/FX7d9f1V+I3n
rH9/FX7d9f1V+HXX91fh113fX4XfWIf691fhN9an/v1V+HXX91fhl77/psfm
d10/3N9fhV93fX8Vft31/VX4ddf3V+HXXd9fhV93/X4Uft31+1H4ddfvR+HX
Xb8fhV93/X4Ufumv7fvOM9cs7evfj8Kvu34/Cr/u+v0o/MZz1n8/Cr/u+v0o
/Lrr96Pw667fj8JvrEP996PwG+tT//0o/Lrr96PwS39yfP/7Fn+h8O9H4ddd
vx+FX3f9fhR+3fX7Ufh11+9H4ddd72+EX3e9vxF+3fX+Rvh11/sb4ddd72+E
X/rum0d8cdr1ffz+Rvh11/sb4ddd72+E33jO+vsb4ddd72+EX3e9vxF+3fX+
RviNdai/vxF+Y33q72+EX3e9vxF+6Z1Xj5346G+G+f2N8Ouu9zfCr7ve3wi/
7np/I/y66/2N8Ouu9yfDr7venwy/7np/Mvy66/3J8Ouu9yfDL33ggMfGHDy7
l9+fDL/uen8y/Lrr/cnwG89Zf38y/Lrr/cnw6673J8Ovu96fDL+xDvX3J8Nv
rE/9/cnw6673J8MvfeZD/93llQuH+v3J8Ouu9yfDr7venwy/7np/Mvy66/3J
8Ouu/Qvh1137F8Kvu/YvhF937V8Iv+7avxB+6T2OvOpbz7Y/xfsXwq+79i+E
X3ftXwi/8Zz1/Qvh1137F8Kvu/YvhF937V8Iv7EO9f0L4TfWp75/Ify6a/9C
+KX/66WTf7+w7RnevxB+3bV/Ify6a/9C+HXX/oXw6679C+HXXfsHw6+79g+G
X3ftHwy/7to/GH7dtX8w/NLHzZz13U8d7O79g+HXXfsHw6+79g+G33jO+v7B
8Ouu/YPh1137B8Ovu/YPht9Yh/r+wfAb61PfPxh+3bV/MPzS9/24997jdp3u
/YPh1137B8Ovu/YPhl937R8Mv+7aPxh+3bV/P/y6a/9++HXX/v3w6679++HX
Xfv3wy99xH/uO+Ly9t28fz/8umv/fvh11/798BvPWd+/H37dtX8//Lpr/374
ddf+/fAb61Dfvx9+Y33q+/fDr7v274df+sFJO3/2672nef9++HXX/v3w6679
++HXXfv3w6+79u+HX3fNzwm/7pqfE37dNT8n/Lprfk74ddf8nPBLP/ea9vP6
3dvF83OK3vedvLWxrWuh+TnF96a9N27EV7oXmp9T3N+6+Y5d23sUmp9T3D56
/p9PvfiUQvNzig83fnrP+bt7FpqfUww55+y17Sb1LjQ/p1h91IvDGi/2KTQ/
p3jkwPWH2pzZt9D8nGLV3o439rmlX6H5OcXicRdN6L6pf6H5OcXluzsuGrBn
QKH5OcWiLTtndzowsND8nOLKnx7o9unLBxWan1Ps2fLAjK2vDCo0P6e4r+Wi
7W+d1lJofk4xvufi12+f3VJofk4xeclnt7c81VJofk7R8fNnTblgb0uh+TlF
j4PrLtvRfnCh+TlFx0O/uXlp78GenxN+3TU/J/y6a35O+HXX/Jzw6675OeHX
XfPrwq+75teFX3fNrwu/7ppfF37dNb8u/Lprfl38/XXX/Lr4++uu+XXx9zee
sz6/Lv7+umt+Xfz9ddf8uvj76675dfH3N9ahPr8u/v7G+tTn18XfX3fNr4u/
v+6aXxd+3TW/Lvy6a35d+HXX/Lrw6675deHXXfNjw6+75seGX3fNjw2/7pof
G37dNT82/Lprfmz4ddf82PDrrvmx4Teesz4/Nvy6a35s+HXX/Njw6675seE3
1qE+Pzb8xvrU58eGX3fNjw2/7pofG37dNT82/Lprfmz4ddf82PDrrvmx4ddd
89vDr7vmt4dfd81vD7/umt8eft01vz38umt+e/h11/z28Ouu+e3hN56zPr89
/Lprfnv4ddf89vDrrvnt4TfWoT6/PfzG+tTnt4dfd81vD7/umt8eft01vz38
umt+e/h11/z28Ouu+e3h113np4Rfd52fEn7ddX5K+HXX+Snh113np4Rfd52f
En7ddX5K+HXX+SnhN56zfn5K+HXX+Snh113np4Rfd52fEn5jHernp4TfWJ/6
+Snh113np4Rfd52fEn7ddX5K+HXX+Snh113np4Rfd52fEn7ddX5Z+HXX+WXh
113nl4Vfd51fFn7ddX5Z+HXX+WXh113nl4Vfd51fFn7jOevnl4Vfd51fFn7d
dX5Z+HXX+WXhN9ahfn5Z+I31qZ9fFn7ddX5Z+HXX+WXh113nl4Vfd51fFn7d
dX5Z+HXX+WXh113nh4Zfd50fGn7ddX5o+HXX+aHh113nh4Zfd50fGn7ddX5o
+HXX+aHhN56zfn5o+HXX+aHh113nh4Zfd50fGn5jHernh4bfWJ/6+aHh113n
h4Zfd50fGn7ddX5o+HXX+aHh113nh4Zfd50fGn7ddX53+HXX+d3h113nd4df
d53fHX7ddX53+HXX+d3h113nd4dfd53fHX7jOevnd4dfd53fHX7ddX53+HXX
+d3hN9ahfn53+I31qZ/fHX7ddX53+HXX+d3h113nd4dfd53fHX7ddX53+HXX
+d3h1x2/G8bP7TTtg03h1x2/7vh1x687ft3x645fd/y649cdv+74dcevO37d
8euO33jO0q87ft3x645fd/y649cdv+74jXUo/brjN9an9OuOX3f8uuPXHb/u
+HXHrzt+3fHrjl93/Lrj1x2/7s2rER2/F1w4tu1NY1rDrzt+3fHrjl93/Lrj
1x2/7vh1x687ft3x645fd/y649cdv/GcpV93/Lrj1x2/7vh1x687ft3xG+tQ
+nXHb6xP6dcdv+74dcevO37d8euOX3f8uuPXHb/u+HXHrzt+3ZtXIzp+m/9u
Dr/u+HXHrzt+3fHrjl93/Lrj1x2/7vh1x687ft3x645fd/zGc5Z+3fHrjl93
/Lrj1x2/7vh1x2+sQ+nXHb+xPqVfd/y649cdv+74dcevO37d8euOX3f8uuPX
Hb/u+HVvXo3o/wOJSGKT
    "]]},
  Axes->True,
  AxesLabel->{
    FormBox[
     StyleBox["\"r, m\"", 20, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"z, m\"", 20, StripOnInput -> False], TraditionalForm], 
    FormBox["\"\"", TraditionalForm]},
  AxesStyle->Directive[
    GrayLevel[0], 15],
  BoxRatios->{1, 1, 0.4},
  BoxStyle->Dashing[{0.009, 0.009}],
  ImageSize->{544., 432.},
  PlotLabel->FormBox[
    StyleBox["\[Psi]", 20, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0.08, 0.22}, {-0.21, 0.21}, {0.0001, 0.0008}},
  PlotRangePadding->{{Automatic, Automatic}, {Automatic, Automatic}, {
    Automatic, Automatic}},
  ViewPoint->{1.8275407278383213`, -2.7756936659344755`, 0.6368826901270044},
  ViewVertical->{0.247169070494142, -0.35052935114893274`, 
   2.2583686376649323`}]], "Output",
 CellChangeTimes->{3.515318275710373*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztPWeYFUW2NXPvRIbMMOwMMOQggpIkMyQBQXwGFGTJYRwEHhJkF0RYF1yS
gqQVxISiMDPLCp9+PAUVRRb5SKKggt+66vNhwICCImCYd8+pqtPdl1N9u++d
O/KD/qDndlWdUyfVqarT1VUDRk0vGDdp1PTxY0bV6TN11F0F48dMq9N78tRQ
UiBBiMQ6QiRsqSPgd4kQ+lYS+idv9eAGyZcTLidcTriccDmh1BLa4O8ksXPn
TtG3b18xYsQI0adPH/Haa6+JRJVXUFAgunXrhk9ff/21SElJCaXClSry8vKE
QsvhOGqrqjX+ThfvvfeeKFeunFi6dCmmPPDAAyIjI0O8//77+Dxq1CjRoUMH
WXtA3HHHHYjxzTffDFEE93Tx6quvinvuuQdLuKA7ImvfojBduHBBDBs2TJw9
e1bMVcRMmzYNOfn0008x5ZNPPsHnGTNm4PNvv/0mfv31V03Mt99+Kzp16iSO
HDkSeoK0NPHzzz/jLzdUipKtCs26detEr169xLlz58QcTEsRzZo1Q7qhRl0z
8NW8eXORrOC++uor0blzZ/Hyyy+LoAe4sGq/++47kZiYKO677z5VbUBUrVpV
1KpVC580lzk5OSIzMxOfZNVB8fnnn4srrrhCrFixAqpI9Aj+jqRgk8K1ZcsW
NCV9tWvXTowcOTKgID/88ENMrlu3bogzKV4A6dGjB4F07NhRPPTQQ5i7ePFi
fE7EnCCWO3DgAFpJ6LdMDqDInnnmGQQZo6oKBoOiQYMGDsLhGdKlYOX9448/
FjVr1hSDBg0SP/30k5SGgg0wcIrhQiU20EZ6ejoSErK/oIJYtGgRJlWpUiXU
iKyioDi4QjYVUMlgtXAlJydDcqItGZJU6XEe9ZGqFLFp0yYEnTtXtgQFFzCr
sEhlVaxYUcgBWonQ7BQXFyOG5cuXhzRmLgcXpMuni8uN82DTSZhSEdvO6dOn
yftA29AmBc8e2gXHUqVSIN/NE2jyb7vtNjF06FAiH9oXXOBAI3kTtFok5x/x
ZQRcMsjwwQcfxJQlS5bg87Fjx4iR+fPni6SkJCJ08+bNiGft2rX47IYjF1Kw
K0m0UZafn4//i+LDXL7q1l5//XVx3XXXieHDh+NfeE5WjIdcPjoZSIcOqG3b
tuhswIgSXeCzIQ8bZYqNGq3jRGBrE88V+JZwrqCj0m4Aehm40tLS7P4XCIIk
uFZR5eWZyh3STBYVKlTA7F27dmHKZ599Bj5FQ+rsoqIiIgF6Wn0dPXpUk/DR
Rx9hUnZ2tlhGCq2qckGRmoQkJu0peweRimLYvXs3IkxNTcVmEhoM4HOouZTD
YpXFmTNnxCuvvILJ4Hn79+8vZs+ejdxs376dQGAYAh0teP+9e/eK3r17Y/q4
cePEIhJXXfiFygmj5q233sLhyDXXXCPat28vfvnlF/SYwOqsWbPKKWs5fPgw
YoRaW7RogUoBl9i9e/eQzkGbqdDLocuCAdT48eNFVlYWukwY2pw6dWoeERNg
dFefEdwTklR86E9iT2Og/2UreS3VUyFCyTwqeRVTe3kS2TobTEeCacPAVCSY
tTaYNgSTxFDUisFTZINuQdDl/EG/rCzSPPANOAa+iYptGGaCUcKVkJCA3uHp
p5/G3PXr16OZjB07Fu0B8MFQ5BZST2WGyH4klpWStB34x/NAWfs9PVCoX78+
cQDcwbVhwwZKmzdvHo4CoT1cT+KrzlB2PVG23EmZx1FzkmofcDVu3Jjwwjj0
4YcftnnTgDhx4gSWGzhwoOhD8uIaA0fpR3b63McPqTZwTZQeX4NbgatVq1ai
O4kmlanwnL3CyMOuFKbSRJUDTkWjhf/a/d16662ik2tznUD6WeIkx9vglicH
qoVB/pdffokWCLKAC+Zc15BiRjMtK5dJW1hackoWQ4YMEVu3bsUBHigTCHvu
uedakoiUtWgJjWXIqcOkLYjNduzO4t1338Unyytxw4AxDBFFTiLcGpgbEZD/
0ksv4VNTUhY3HOCIaMik/dVJmNtoTk8Vz58/j12iIlC3YRgoTpkyxTaRD4h9
+/ZRTbVJaOvJrlXt2llzQ64UVeuyZcvE7bffLlq2bClat26ta121apXQV0Dd
wax1rVlwRxe1ieFeTo7ESRJlMiNKvDeVJf+PmOD6o2KmilkS8D8E+Bpxr7KO
U9YqBv5qJu1PEvAIAXJd6wqzGR4kwHQGcKUZcC8JqpJHwLbE7TSJYhfVfYKy
psisW5QZ+Ouzk019dqILuhtdRYf3QZKom/FPTL11QDUuNxT9SLKcYXEE+eqk
+b7ADUUvkhCn6i9JdxPsVEXrXt3hrKFqJkNKIWN1eUxagZ3QWLqqyLDtXa2r
qkcmipwER9/pR4ZtRQRz1reTIa4Xkzam7CTcnJrLEYaQa8k6HSTFxzqbQAr2
MO8zpPRh0kY6iYpuMOAOV48UauzR5jmpiLrndwetRYrKiECI9v4+BgFBF5Aa
JAGspAOZhIzJyQA55ieaCOtMMEMkzExihpsznDS34WlUGTdWcwGc5OQigSk5
kKgcKGEKiErO+/zGoLiNUEhrkMN/4wCBQ6HoHeqkV3oOMYgoMsp6KoOzv4S+
iXByo228TyMGFEx/V4Hj/W6mRhmbFb2JXs5X452LfykZdKO6gww0FyIwYuTm
OD1lLZ2IRk5FeG/EQOeTpBQejKYHSWPtGZgCJq2bDdpWt9RxqCCWascAFvOA
JdqxBQh6AwPdyQyN9yJiz6VkmrOeJ5l62puhM5jieD9mhqlsguGmZC4SquKk
vI5+LFFjTI1mBomhTQSBNdUlS9JNyP7M0NjSjDab6rZcllUB/qrAYLRzjS/2
ahGe74ky0lzJWgbFlWaizlHxEkpLZdCmM+XWEiGqAhmE9TtP4csHIualsnmQ
o17Wy3f1SY539botNpStW7cHlH4q/ZpLv9I8ymIjI3Y1NZZdos/3/9kRi8ea
r9YXBFREwr60gOuMRhP7KYzAuF9pzl9hAktxzU01pXGYA6a0bgyWQqdSfK2D
yIlYPNb8i9dZJNE6C7v5tmDMrbVHvVjNO4V+pTp/JTJpYb/cddCf0uYxlDaw
68DLW+8s1zLwHEu+Nnf7KhNudtBcM5X/R1eDNhqq8ddEm5AAJ/y/n7yrQ1yR
p4BBY7kkRzmdH4iY58SvV2KErYzhxnTDicPjjBksYNLqOnmNND8PGsslOcs5
Vq645Tnx61fAYathuNczbcg6GpHxc1wXX1ra1PjtC2M49rghawOmGRyLxLKX
9p4d1/YOz2oVjb3pwwXvWDjuOzNc4X0xtdJaTiYjr4XJjntvotbaaCbtS20C
ku7Q1ZXstj61VmTNmhHlOFmLvDom17UMPMea77b6Rjda+9wrdOUxOrQmCseJ
+WclkB7MmsMufF4gyjwdvXJbgsOZphXTq0ksfEBsycV/8gVmGGAfAsTnhfSY
aYYZz7T4g4xc/07IqpqRDSDLq0H0HjK7Dw7FjVRP9WhR4L0jA/Mok5ZhxoOx
oiCJ8y9EmQvMf5PGjtKv9bJ4W6b4CMJZnrjlARFuFMm3HLFiqQ3vkwljsrla
vH9KJYPmkgVU41uM8HCxSBIkBcwoJjCAycTjbib3EUKbYUZ7l/IJDgfugnQ5
Ic00I51C7O5hUCwig6gdQbb9iZQpBNPYDDPTVlnTprusRogKLiDKmzFEJURA
i1SEMgCvhjvAWM9wqoVb8eSpFivMggx3iYAH0dxHEscCWQQdZKA5h+9C2Xyy
8BcYwFupZq6qvv6qmstINJVBsZlJG0BkcssKB5ornUMmQhGt/H8wKKwOJUi/
hkdAiwrdziDr7ESGmflmZCuo+HZCW5dBa0VEJ0tkbRhkq6nQ/xDrtShtmlll
HDKyjpJMBnCrMxdN8p4oKggQCoSrQ2gfJbTz/aG9nzG1LAZFDaqKZGuL9Cym
6h+MUD3WzkWo5cLkoLMPUugD9CuF+cUFg4YxNWCniD5ptT8ZLaKqskn0aTy5
AZIQls9gSEumctYvjoVbGCKTSM5PRSAXcTWgXwGmgrpORYaptB9VdRMDq9ZU
JCmqyiaiy+cFlVSff/55MXjwYBQFzM8nT54ML165uMNihqNcW5ru3SxFtnSV
VTuSVTJhCXOYnDfHpMFSkpJMn1HgrLhGgbXkYCEmXA0bNmTjXssY/uhlho6R
5KuPF7o4m23YrwbURBszSC13x8UUb3cK0lfkNiuuc21uKRH3inkpcVWdcX39
XCVn/UohGV7F4LMkZ5ngSLM79PI1nWSlRlxjMk888YRcLy3XaWsquTcRS4lX
ayRm2VA5RrIZWhL5/RiIsI4Gx77W+CosKO7hVYalpKBTDVzkt3KYebso6feI
FVp5sG4PPDN+S+nR3lcS6zokY+z8sRT3pv8WLUhrNOrlbYWvNxg1KW1wZCWU
fUjambd//34xdepUf0oIE7Q1xOPGDTUYIVxLTYib/uQwbsr9jUdrpt5Bl2IL
SHPkwX/w+PCBFBKmhM91m2tc/VRtEqg1ReImdK2ZtGK7UC6V92dJ4ocffsBP
OyGC6RAMxpnPOi0IGebm/NcxwhrhZDhyXxzf/l57sx07dojHH39cM6tXA2oj
UNe/iN2G9MsSQW9GBH2peY50Mh458p4V18i7NuTp06e7mv5eYi+HYc+avN/g
hXk9BymrQLxuhd98842oXr06Msk5Vi7EWY5JI7crDVqionZtx3iYStIkJH82
eZElZvfIITtCOrAiC02Mbcsf2rDi84jGJmHK84wW7/TKOypozpkU/w4wCMKJ
KZ9J604sF/iTeSFJ2idgEaVZNoDLKROgWIL85QsjvTkqWeAZD96HEw8+ATkV
5DJ8/S12tNZ8dmIU0J2Jw2igL6q7FQN91KOlFdtQIAYOEO+Z/irDexVW0l5R
PECMVmO0ONEzbryPJWRVSfqT/KHoytDYIXbKOLTFpQvDtc874oOC60ys6MN0
fxUsJ8B0FkWiyWItwDmelGFyzusYbqb7U+8kMjxrfnV37BZypRMt/prBotWf
ffye0VqZJ6O1UA9wAvtBwBY5oYkBF6115zxMJ7Mlq7Ian+HU3LgvqoW9BWCP
AdgFQz/DBV/j+mK92Mmmr2BnbtwXFsEn6bBLCXz3pKuHLZ1gOSDHpk+vpL+f
uhQWijVq1Ejk5ubqOEnt2rVx3xmr+XjsIKvbWfs9AhnpjjxgGdZPQTgPnmFH
KYgwNWnShFtk5JWtsg+OpTvygC3YdwaWh8FXAJMmTUI+FixY4Iutqqx/vVSU
B80MZqYQfwjZJm7LA2v3L1y4UGpceml9OXFvfdC7gJlCSEm99xDqg6wvXImP
HCKK/2L+NWvW4POhQ4fITGCjph9//NHoP/Cexyhskyu7l8KSTNjCCtwjtDl4
Pn78OO468OyzzwrOLI2sOsKbZRf30SMX2JEHNoMZM2YMboAF/BhaViQWWnps
jS59oVcUdm/sC4Z3ApcuCryfNBcPkIfw3oyM9fjUbSSYqxmYd5ni1tLrzf4A
8XvsJIowYybNGvJ9UnETIePeCD3llKR3tD2ZNGxc+JavHtG93ksFeK9MMPTK
Nv+wZ2jrfTr3aosiOPmPeMH4KyH7LxL7I+bi3xD2IElgBEPFShsKxPC/TqKx
ngmEbIU/jSRS3fhcyQy936Q7JIUWJul9uTgUOxkTTWPQLiG+woKDPNpthPYP
DLLlTNpfvKD9J4mG1hDmz/UC+JjTJi3p9vQCvdLVJt8mjH/ygmwxITvBIJNj
Fdrs0A5I7x5sPJyhtKk2QIS7i9Est6phA6G4y1x3AdU4nkGB9ywzNFet5WO4
PRWKKDc/XKZcBTdQcYvX2QzafzJpY8IrcIvDlFXcRn9+8v333+NuZbCl9J13
3im6dOmCyw1ggsgNgXq5WirerRfcI8I5Vy/MPEZxRFmFceAtNlzvvCM3gdZD
WRguGj8Ps5r4DWQSQw0Me4zniLL67rh8+fKiWrVqjp0p4XtHvZ8wN1VpZvJw
2y5iWi5/dZns6TlKvOeTwBNs8au/qYa/wDvMWzjFcsGs7MgWb30Ho9bRKuRe
PsSMV9AAbB0uWF536tQp/AvX6tWrOc65tCrEOT5zC9wHOvh1+7Q23uuk4P/C
hQuF3gwfwgiwWMPEnDEtrAN8neF6N5W78ZLRd2FhoQgE5HJKWMoA01loCnv2
7LGzmq/W7SL1CpEWgTVzOMAwvYeMfMCl1szhHAXgXe+TD8u14IKpPrKIa025
jbd2mZp0psGpuXhWzW28nXelSpXQErQ09MfM0GPiyNq4RxTH7UGy9ItGqopl
l0BQWcWaRo8ejYy8/TaOhfF9C1xwvkRFYjnMnI37QR0KZ9Rtq/t4fvsLkcGZ
M2eKrl274re/oEFgCYYCmdL5Cn6PNbwvo/baJZyj3iQUY9SR3qTKFYnCtkm2
sUb56aTcK8+IvZoJ+m4yNbUb02DikdvPnaOC21rVPjkYRpRx/t0rxs9INNK/
yCG8UTQcCmtj0KbhummpLCO6s4gCjv2NGrhqgpMqtwvHKSatXjjZV6tGFfO5
Rs7Nh5q52oA18EDq6pqIivl8o4Bj352rXMVqbB6refL8H3pkHTBg3OrvzySU
mrKuRvAn1U5zlGcedaXKwxwq1msFCbLtPHrdl/WivVV6kv45Vrmpe4mU8sUZ
VZ0EeTsjyLkVSl8T75xxcgRzHyqWSJFpfVXxbhv6ZAG3Q4BuIJK5pbm+aLxo
0KNpjPx6LcX1pB+cJqSYGrmRHmuDwjQTZZHfhKW4bh4yhMyPW/NrpCyDWkFK
OGXavUd77k4zBV9Ku39bO+Aa/WuBapl2Li1+5Nu9mDb+voJoML5Vs+J/YdXG
sL235cWNXvR6qX5HQD7dToD/vZLbkkVxfQfXRvHe0kkJ/lIb8eBefKl28UWz
pbTVp3CWnsdY+r+JEGs63NwunOg24+7mapGcgK5kiNtPJFnE5TmJi0ZK1sCZ
M1WvxL3EmNVNsZnV9WRWnDFzRGxk1DfaSYTfLbetLYjDukeOpvoMTX9ntDbd
SVMUG3APJrK4AF4Ro4y/yTpxQx5/e23XUSClEbxv7uqgljEe4WFJN75t8jsW
dz94oZWr2+Jcxt2MfRU66fM1LHc3x3auOuaODbI+JbXo22Gnz9vYy61MF1cF
6i+ZHL6+RH47n8cY5UE7cbEsO3OW62FqtMku9DVnjO8/TvqiX/znLNeXLC/o
QlBNRpvfxUdgA0hgOtfuwlIZzWFOoHRtS+1nL9WmCZBBW11jprNGL6N0tzK1
o3JtxpEnktjdSaKX4XrEYxRiG4wiWXJRinhccew38Ffbn3/jBqdIRg9JxkEP
5sB1x3Ycj9pY1ac/622DoxkI2XHrBmY/z7m5x9btFbf90ObmpUS3PvoJDtuD
q3LlyiE8PXv2DI08IeYKQQ99wZQaSpfB2cxVolS3Pmtm4sSJ4v775U5PF+yc
ylAOLBUG6e/bt0+vF4UlqfAe9IMPcKvI0j+XuZoH98KxlBPR5XiPheqNumAB
KhxPaRPPSkX1tm3bEBAM9PTp03oJKAhUH9FmO+M5liOetUCiGM3m+PNxXgOt
+jxJiL9BQ4ODD5V49HlrsBAELjjEVTMFC0T0geAZMQgkM6KrvWiorQVRysFd
LQjwJPoN8Xm7IILo4IAIuAoLCyvHwHc3D42dCwH/QcG98MILeOwvqAy+RLn5
5pvFxo0bcfcFqRW58V2IILApOIQdqg9pOZbDo7t59MCGEHJ15TghwqY1tWDB
AvRB4Ezr1auH8gWnf9beRFPoGyP4/9hjjyE4LEqCXasqhlHq8+Do7r66rIsi
1ZmKqSZNmiA6WDgOnh6uN954gw6hhU3LwpgCBjRTQBFghAte1mumojyKurtH
TXHR7kzVwMAuYeAGIWaQI9jlrFmzkFToTcDRhzzvj3amUnUfQ4zBKhP4PAXe
xIfcj3QWpXOGdXcPjchLrFwzDL+12iAFOm04ZxV+QwODa82aNQ6GpQ2BmPAs
vlDHAwMJsGS4YGQJUd1SPCtbMx1r8F0zDcv74Fq9WjqMe++9F9n54osvcBQD
VwiPYvq8hw7MS4Bd1w7rU+CaMEFu+fviiy/i85NPPonDErhCAlC1X3DpLbwE
0WWt5cTJkycRMygYUqA3A08KbRSetfGBIf4gq0YB1lOtRRsubD6ooxSgThg4
Qf1AObQwaHnQ2Z5hcMA+e/AFJehN4wB1wwXdNKRAXwX6AQO349Db5sHB1nDN
mTNHe31HvvYIIAN7vv5oGzwF8A2N4SyTDx/AwAX12PNtjFxOuJxwOeFywuUE
Twki4f8BrMt4Yg==\
\>"]]
}, Open  ]],

Cell[BoxData[""], "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.515318157337282*^9, 3.515318203560794*^9, {3.515318244965334*^9, 
   3.515318249651621*^9}, 3.515318280318688*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.515317631771173*^9, 3.515317663180502*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513923058092677*^9, 3.513923067693099*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513920965838717*^9, 3.513923056095453*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513892537135786*^9, {3.513892595471788*^9, 3.51389259922735*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513891504029534*^9, 3.513891510672728*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513888618415221*^9, 3.513890432642989*^9, {3.51389149983837*^9, 
   3.513891502222786*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513887970082164*^9, {3.513888588010918*^9, 3.513888612712187*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513887864190805*^9, 3.513887879266363*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513885935795764*^9, 3.513885975741538*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.51388517663051*^9, 3.513885204137446*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513860852653868*^9, 3.513885170833731*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5138518955808992`*^9, 3.51385192012851*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513851606521412*^9, 3.513851610408964*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513851335677283*^9, {3.513851565902789*^9, 3.51385157124218*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513851313632964*^9, 3.513851330727513*^9}}],

Cell[BoxData["{"], "Input",
 CellChangeTimes->{3.513849216689566*^9, 3.513851283383562*^9, 
  3.513851332749227*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513849105019665*^9, 3.513849145687518*^9, {3.513849211950646*^9, 
   3.513849214019092*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513848717482347*^9, 3.513848759875726*^9}, 
   3.513848841697295*^9, 3.513848953061303*^9, 3.51384903559606*^9, 
   3.51384909519217*^9, 3.513849214754771*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513848596337268*^9, {3.51384867825897*^9, 3.513848701423733*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513848380003575*^9, 3.513848414250563*^9, 
  3.513848590671843*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.51384785654677*^9, 3.513847918644275*^9, 
  3.513848373580352*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513847850105653*^9, 3.513847878357175*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513846764905139*^9, 3.51384784327098*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513845885239722*^9, 3.513846047494918*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513845798267943*^9, 3.513845883585045*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513843759776906*^9, 3.513845795323715*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.51384316737645*^9, 3.513843756701186*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513529872909004*^9, 3.513529991353428*^9, 
  3.51353006718468*^9, 3.513843160344385*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513529828191272*^9, 3.513529871481073*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513529621989284*^9, 3.513529825317188*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513529552484931*^9, 3.513529566993868*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513528764861901*^9, 3.513529549782321*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513528663250098*^9, 3.513528698064997*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513369799099214*^9, 3.513528656145405*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.51336976230605*^9, 3.513369796662275*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513369714114833*^9, 3.513369759997012*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513369619691107*^9, 3.513369708375264*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513369500862438*^9, 3.513369616576083*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513369226630338*^9, 3.513369497596977*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513369163705815*^9, 3.513369191077335*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513368957893987*^9, {3.513369111527683*^9, 3.513369129875676*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513368778452261*^9, {3.51336890851799*^9, 3.513368917012301*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513368523842468*^9, 3.513368775980293*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513368227060358*^9, 3.513368486133364*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513368153946145*^9, 3.513368224333807*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513368071757362*^9, {3.513368132762198*^9, 3.513368145787562*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513367897954091*^9, {3.513367970917271*^9, 3.513367991738576*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.51336752045308*^9, 3.513367685891406*^9, 
  3.513367895969249*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513364259187323*^9, 3.513367518469326*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513364190032728*^9, 3.51336420761605*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.51336348697457*^9, 3.513364188185752*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513363388141699*^9, 3.513363484381831*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513362948613786*^9, 3.513363386074592*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513362894201661*^9, 3.513362940773912*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513362398900472*^9, 3.513362892261637*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513362148401351*^9, 3.51336239302491*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513361669775503*^9, 3.513361953064174*^9, 
  3.513362139056946*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513361152284255*^9, {3.513361325577094*^9, 3.513361350777108*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513361055078597*^9, 3.513361146733671*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513360958787261*^9, 3.513360976862974*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.51335959059141*^9, 3.513359643779581*^9, 
  3.513360953067338*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513359418906819*^9, 3.5133594376509*^9}, 
   3.513359584623925*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513359206339291*^9, 3.513359229939798*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.513359074343313*^9, {3.51335917885612*^9, 3.513359183722941*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513358301845862*^9, 3.513359068727665*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513357429573863*^9, 3.513357501762787*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513357396819611*^9, 3.513357414113477*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513357360606544*^9, 3.513357380878995*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.513357340752474*^9, 3.513357355018801*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513355266919759*^9, 3.513357334175154*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513355136518241*^9, 3.513355261429976*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513355071395597*^9, 3.513355130735881*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.513352096746396*^9, 3.51335502275756*^9, 
  3.51335506917685*^9}],

Cell[BoxData[""], "Input", "Input",
 CellChangeTimes->{3.454279935041976*^9, 3.513352094059584*^9}],

Cell[BoxData[","], "Input",
 CellChangeTimes->{3.454279872823226*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.454279862432601*^9, 3.454279862557601*^9}}]
},
WindowSize->{1272, 747},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Linux x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 5252, 95, 385, "Input"],
Cell[5845, 120, 16820, 287, 447, 8346, 146, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[22680, 410, 215, 5, 32, "Input"],
Cell[22898, 417, 90, 1, 32, "Input"],
Cell[22991, 420, 92, 1, 32, "Input"],
Cell[23086, 423, 90, 1, 32, "Input"],
Cell[23179, 426, 116, 2, 32, "Input"],
Cell[23298, 430, 92, 1, 32, "Input"],
Cell[23393, 433, 142, 3, 32, "Input"],
Cell[23538, 438, 117, 2, 32, "Input"],
Cell[23658, 442, 92, 1, 32, "Input"],
Cell[23753, 445, 90, 1, 32, "Input"],
Cell[23846, 448, 91, 1, 32, "Input"],
Cell[23940, 451, 90, 1, 32, "Input"],
Cell[24033, 454, 93, 1, 32, "Input"],
Cell[24129, 457, 92, 1, 32, "Input"],
Cell[24224, 460, 116, 2, 32, "Input"],
Cell[24343, 464, 92, 1, 32, "Input"],
Cell[24438, 467, 116, 2, 32, "Input"],
Cell[24557, 471, 143, 3, 32, "Input"],
Cell[24703, 476, 208, 3, 32, "Input"],
Cell[24914, 481, 116, 2, 32, "Input"],
Cell[25033, 485, 115, 2, 32, "Input"],
Cell[25151, 489, 114, 2, 32, "Input"],
Cell[25268, 493, 92, 1, 32, "Input"],
Cell[25363, 496, 89, 1, 32, "Input"],
Cell[25455, 499, 90, 1, 32, "Input"],
Cell[25548, 502, 90, 1, 32, "Input"],
Cell[25641, 505, 90, 1, 32, "Input"],
Cell[25734, 508, 89, 1, 32, "Input"],
Cell[25826, 511, 136, 2, 32, "Input"],
Cell[25965, 515, 90, 1, 32, "Input"],
Cell[26058, 518, 90, 1, 32, "Input"],
Cell[26151, 521, 92, 1, 32, "Input"],
Cell[26246, 524, 90, 1, 32, "Input"],
Cell[26339, 527, 90, 1, 32, "Input"],
Cell[26432, 530, 90, 1, 32, "Input"],
Cell[26525, 533, 89, 1, 32, "Input"],
Cell[26617, 536, 90, 1, 32, "Input"],
Cell[26710, 539, 90, 1, 32, "Input"],
Cell[26803, 542, 90, 1, 32, "Input"],
Cell[26896, 545, 90, 1, 32, "Input"],
Cell[26989, 548, 92, 1, 32, "Input"],
Cell[27084, 551, 117, 2, 32, "Input"],
Cell[27204, 555, 116, 2, 32, "Input"],
Cell[27323, 559, 90, 1, 32, "Input"],
Cell[27416, 562, 90, 1, 32, "Input"],
Cell[27509, 565, 90, 1, 32, "Input"],
Cell[27602, 568, 117, 2, 32, "Input"],
Cell[27722, 572, 117, 2, 32, "Input"],
Cell[27842, 576, 114, 2, 32, "Input"],
Cell[27959, 580, 90, 1, 32, "Input"],
Cell[28052, 583, 91, 1, 32, "Input"],
Cell[28146, 586, 89, 1, 32, "Input"],
Cell[28238, 589, 90, 1, 32, "Input"],
Cell[28331, 592, 90, 1, 32, "Input"],
Cell[28424, 595, 90, 1, 32, "Input"],
Cell[28517, 598, 90, 1, 32, "Input"],
Cell[28610, 601, 89, 1, 32, "Input"],
Cell[28702, 604, 115, 2, 32, "Input"],
Cell[28820, 608, 117, 2, 32, "Input"],
Cell[28940, 612, 90, 1, 32, "Input"],
Cell[29033, 615, 92, 1, 32, "Input"],
Cell[29128, 618, 114, 2, 32, "Input"],
Cell[29245, 622, 116, 2, 32, "Input"],
Cell[29364, 626, 92, 1, 32, "Input"],
Cell[29459, 629, 116, 2, 32, "Input"],
Cell[29578, 633, 90, 1, 32, "Input"],
Cell[29671, 636, 90, 1, 32, "Input"],
Cell[29764, 639, 92, 1, 32, "Input"],
Cell[29859, 642, 92, 1, 32, "Input"],
Cell[29954, 645, 92, 1, 32, "Input"],
Cell[30049, 648, 90, 1, 32, "Input"],
Cell[30142, 651, 90, 1, 32, "Input"],
Cell[30235, 654, 90, 1, 32, "Input"],
Cell[30328, 657, 113, 2, 32, "Input"],
Cell[30444, 661, 99, 1, 32, "Input"],
Cell[30546, 664, 69, 1, 32, "Input"],
Cell[30618, 667, 92, 1, 32, "Input"]
}
]
*)

(* End of internal cache information *)
